SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCRENO_CLIE_I01]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : OFISIS                 --*/
/*---Sistema              : Tesoreria                  --*/
/*---M÷dulo               : Empresa                    --*/
/*---Programa             : Grabaci÷n Letras Generadas --*/
/*---                       por Renovaci¸n             --*/
/*---			    CTAS POR COBRAR            --*/  
/*---Script               : tcreno_clie.sql            --*/
/*---Nombre SP            : SP_TCRENO_CLIE_I01         --*/
/*---Desarrollado por     : Eduardo Vivar Pomiano      --*/
/*---Fecha Creaci÷n       : 01/02/2000                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi÷n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     :                            --*/
/*---Fecha Modificaci÷n   :                            --*/ 
/*---Detalle Modificaci÷n :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Drop Proc SP_TCRENO_CLIE_I01                      --*/
/*---Grant all on SP_TCRENO_CLIE_I01 to public         --*/ 
/*---SP_HELPgo SP_TCRENO_CLIE_I01                                --*/
/*-------------------------------------------------------*/
 @ISCO_EMPR      	TD_VC_002, 
 @ISCO_USUA_MODI 	TD_VC_008_USUA,
 @ISNO_AVAL  		TD_VC_100,
 @ISNO_DIRE_AVAL 	TD_VC_100,
 @ISNU_RUCC_AVAL 	TD_VC_020,
 @ISNU_TELE_AVAL 	TD_VC_020,
 @ISCO_CLIE 	 	TD_VC_020,
 @ISNU_LETR_CLIE 	TD_VC_020,
 @IDFE_RENO      	TD_DT_001,
 @IDFE_VENC      	TD_DT_001,
 @ISCO_MONE      	TD_VC_003,
 @INFA_TIPO_CAMB 	TD_NU_015_006,
 @INIM_TOTA      	TD_NU_016_004,
 @ISCO_BANC      	TD_VC_003,
 @ISCO_AGEN      	TD_VC_003,
 @ISNU_RENO      	TD_VC_008,
 @INNU_SECU_RENO 	TD_IN_001, 
 @ISNU_ORDE_LETR 	TD_IN_001,	
 @ISCO_ESTA_DOCU 	TD_VC_003,
 @ISCO_TIPO_OPER 	TD_VC_003,
 @ISDE_LUGA_GIRO 	TD_VC_020,
 @ISCO_UNID_CNTB 	TD_VC_003,
 @ISDE_OBSE		TD_VC_100
	As
Declare 
   @VNNU_SECU   TD_IN_001,
   @OSTI_DOCU   TD_VC_003,
   @VSTI_CLIE	TD_VC_003

 Begin Tran SP_TCRENO_CLIE_I01

/*   Select @VSTI_CLIE = T1.TI_CLIE
   From TMAUXI_EMPR T1, TMPARA_TESO T2
   Where T1.CO_EMPR = @ISCO_EMPR
   And T1.TI_AUXI_EMPR = T2.CO_TIAU_CLIE
   And T1.CO_AUXI_EMPR = @ISCO_CLIE
   And T1.CO_EMPR = T2.CO_EMPR
*/
   Insert into TMLETR_CLIE (CO_EMPR, NU_LETR_CLIE, CO_CLIE, FE_EMIS, FE_VENC, 
		CO_MONE, FA_TIPO_CAMB, IM_TOTA, CO_BANC, CO_AGEN, NU_RENO, 
		CO_ESTA_DOCU,  CO_TIPO_OPER,  CO_UNID_CONC, NO_AVAL, NO_DIRE_AVAL, 
                NU_RUCC_AVAL, NU_TELE_AVAL, DE_LUGA_GIRO, DE_GLOS, TI_CLIE, CO_USUA_MODI)
   Values ( @ISCO_EMPR, @ISNU_LETR_CLIE, @ISCO_CLIE, @IDFE_RENO, @IDFE_VENC,
   	@ISCO_MONE, @INFA_TIPO_CAMB,  @INIM_TOTA, @ISCO_BANC, @ISCO_AGEN, @ISNU_RENO, 
	@ISCO_ESTA_DOCU, @ISCO_TIPO_OPER,  @ISCO_UNID_CNTB, @ISNO_AVAL,
        @ISNO_DIRE_AVAL, @ISNU_RUCC_AVAL, @ISNU_TELE_AVAL, @ISDE_LUGA_GIRO, @ISDE_OBSE, 
	@VSTI_CLIE, @ISCO_USUA_MODI )

   If @@error <> 0
      Begin
        Rollback tran
        Return
      End    


   Exec SP_TTDOCU_CNTB_Q02 6, @OSTI_DOCU OUTPUT

   Select @VNNU_SECU = ISNULL(Max(NU_SECU),0) + 1
   From   TDKARD_DOCU
   Where  CO_EMPR = @ISCO_EMPR

   Insert Into TDKARD_DOCU (CO_EMPR, NU_SECU,CO_TIPO_DOCU, NU_DOCU_CLIE, CO_CLIE, CO_ESTA_ACTU,
		     CO_ESTA_DOCU, NU_CORR_MODI )
   Values ( @ISCO_EMPR, @VNNU_SECU , @OSTI_DOCU, @ISNU_LETR_CLIE, @ISCO_CLIE,
	    @ISCO_ESTA_DOCU,   @ISCO_ESTA_DOCU, @VNNU_SECU )  

   If @@error <> 0
      Begin
        Rollback tran
        Return
   End    

   Insert into TDRENO_CLIE (CO_EMPR, CO_UNID_CONC, CO_CLIE, NU_RENO, FE_RENO, NU_SECU, NU_ORDE_LETR, 
		NU_LETR_CLIE, CO_TIPO_DOCU, NU_DOCU_CLIE, CO_USUA_MODI)
   Values ( @ISCO_EMPR, @ISCO_UNID_CNTB, @ISCO_CLIE, @ISNU_RENO, @IDFE_RENO, @INNU_SECU_RENO, @ISNU_ORDE_LETR,
   		@ISNU_LETR_CLIE, NULL, NULL, @ISCO_USUA_MODI )

   If @@error <> 0
      Begin
        Rollback tran
        Return
      End    

Commit Tran

/*------------------------- Fin ------------------------------*/


GO
